home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of MacTutor - S…e Code for Volumes 1 to 5
/
The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin
/
Source Code
/
#46 (Jul 89)
/
Window Menu Code
/
Common.p
next >
Wrap
Text File
|
1989-01-19
|
2KB
|
93 lines
(*******************************************************************
Common.p
Declarations for dynamic Window menu demo.
(c) 1988, by Clifford Story & Attic Software
********************************************************************
This is a collection of constant and type declarations, most of
which are not used in this program. I keep an odds-and-ends
unit of such things that I routinely include in all my programs;
it's too much trouble to sort out what parts are used in Windows
and what parts aren't.
*******************************************************************)
unit Common;
(******************************************************************)
interface
(*******************************************************************
Key codes:
*******************************************************************)
const
enterkey = 3;
backspace = 8;
tabkey = 9;
returnkey = 13;
clearkey = 27;
leftarrow = 28;
rightarrow = 29;
uparrow = 30;
downarrow = 31;
periodkey = 46;
(*******************************************************************
Dialog items:
*******************************************************************)
themask = 3;
(*******************************************************************
Low-memory globals:
*******************************************************************)
applscratch = $A78;
bootdrive = $210;
curappname = $910;
curdirstore = $398;
currenta5 = $904;
findername = $2E0;
fsfcblen = $3F6;
grayrgn = $9EE;
iaznotify = $33C;
mbarheight = $BAA;
menuflash = $A24;
resload = $A5E;
rom85 = $28E;
sfsavedisk = $214;
sysmap = $A58;
windowlist = $9D6;
(*******************************************************************
Standard types:
*******************************************************************)
type
logical = boolean;
long = longint;
shortpointer = ^integer;
longpointer = ^long;
(******************************************************************)
end.
(******************************************************************)